home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / begleitmaterial / os4-programmierung / teil1 / library-Öffnen.txt next >
Encoding:
Text File  |  2004-08-03  |  621 b   |  22 lines
  1. #include <proto/exec.h>
  2. #include <proto/intuition.h>
  3. #include <exec/exec.h>
  4. #include <intuition/intuition.h>
  5.  
  6. struct IntuitionBase *IntuitionBase = 0;
  7. struct IntuitionIFace *IIntuition;
  8.  
  9. void main()
  10. {
  11.   IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",50);
  12.   if (IntuitionBase)
  13.   {
  14.       IIntuition = IExec->GetInterface((struct Library *)IntuitionBase,"main",1,0);
  15.     if (IIntuition)
  16.     {
  17.         IIntuition->CloseWindow(IIntuition->OpenWindowTagList(0,0));
  18.       IExec->DropInterface((struct Interface *)IIntuition);
  19.     }
  20.     CloseLibrary((struct Library *)IntuitionBase);
  21.   }
  22. }